unit MedaxUtils ;

interface
function Min( a, b : integer ) : integer ;
function Max( a, b : integer ) : integer ;

implementation

function Min( a, b : integer ) : integer ;
begin
    if a < b then
        result := a
    else
        result := b ;
end ;

function Max( a, b : integer ) : integer ;
begin
    if a > b then
        result := a
    else
        result := b ;
end ;

end.

 